home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d26 / sf40_a.arc / TDAY.BAS < prev    next >
Encoding:
BASIC Source File  |  1990-12-09  |  3.1 KB  |  82 lines
  1. 10 KEY OFF:CLS:SCREEN 1:COLOR 1,7
  2. 12 IF XX = 3 THEN 110
  3. 13 GOSUB 8500
  4. 14 A = 0:FOR T = 0 TO 9:CLS:DRAW "S14"
  5. 15 RANDOMIZE TIMER:L=INT(RND*7)+1:IF L=SV THEN 15
  6. 16 TR=0
  7. 18 GOSUB 150
  8. 20 ON L GOSUB 170,190,230,260,290,330,370
  9. 21 GOSUB 4000
  10. 22 K3$=INKEY$:IF K3$="" THEN 20
  11. 24 IF ASC(K3$)=27 THEN CHAIN "TEST1",,ALL
  12. 26 G=ASC(K3$)-48:IF G>7 OR G<0 THEN 20
  13. 30 IF L=G THEN A= A +1:LOCATE 6,25:PRINT"CORRECT!":ON XX GOSUB 6050:FOR X= 0 TO 2000:NEXT:GOTO 50
  14. 35 TR=TR+1:IF TR=1 THEN LOCATE 5,10: PRINT"TRY AGAIN.":GOSUB 9000:GOTO 20
  15. 40 LOCATE 5,25:PRINT"NO, IT'S "; L :ON XX GOSUB 6080
  16. 45 FR$(T)=LS$(L):FOR X =1 TO 2000:NEXT:GOTO 50
  17. 50 SV=L:NEXT
  18. 60 CLS:PRINT TAB(10)"YOUR SCORE = ";A " OUT OF 10.":IF A <>10 THEN PRINT:PRINT TAB(10)"MISSED WERE:"
  19. 61 PRINT
  20. 65 FOR I=0 TO 9:PRINT TAB(10) FR$(I):NEXT
  21. 66 PRINT
  22. 70 LOCATE 16,10:INPUT "PLAY AGAIN (Y/N)";AN$
  23. 80 IF AN$="Y" THEN 14
  24. 90 IF AN$="N" THEN CHAIN "TEST1",,ALL
  25. 100 GOTO 70
  26. 110 CLS:GOSUB 150 'display menu
  27. 112 K3$=INKEY$:IF K3$="" THEN 112
  28. 114 IF ASC(K3$)=27 THEN CHAIN "TEST1",,ALL
  29. 116 G=ASC(K3$)-48:IF G>7 OR G<0 THEN 112
  30. 120 L=G:DRAW "S14"
  31. 130 ON L GOSUB 170,190,230,260,290,330,370
  32. 135 GOSUB 4000
  33. 140 GOTO 110
  34. 150 LOCATE 22,20:PRINT"PRESS A NUMBER        <ESC> FOR MENU"
  35. 152 LOCATE 1,9:PRINT"1=MON:2=TUE:3=WED:4=THU:
  36. 153 LOCATE 3,12:PRINT"5=FRI:6=SAT:7=SUN:
  37. 170  M1$="U3H3U6E1R2L1 H1R2D1D2G1L1H1F1R1E1U3E1R2D4G1L1H1F1R1E1U4E1R2D5G1L1H1F1R1E1"
  38. 172 M2$="U5E1R1F1D4G1L1H1F1R1E1U3R2F2D3G2D2G3D3
  39. 175 A$=M1$+M2$
  40. 180  DRAW "C3":       :RETURN
  41. 190  T1$="U3H3U6E1R2D2G1L1H1F1R1E1U3E1R2D4G1L1H1F1R1E1U4          E1R2D5G1L1H1F1R1E1"
  42. 200  T2$="U4H2R2D1 E1R1F1D3G1L1H1F1R1E1U1F2            D5G3D4"
  43. 210 A$=T1$+T2$
  44. 220  DRAW "C3":       :RETURN
  45. 230  W1$="U2  H3U5r2f2g1l1h1f1r1e1h2          E1H4U1E1R1F4U5E1R1F1D5E5R1F1D1G5              F1  l3g1d1f1r2l2h1u1e1r4f1d5g2d2
  46. 240 A$=W1$
  47. 250  DRAW "C3":       :RETURN
  48. 260   H$="U3H3R2E1U1L3D2U2R3E1U2L5D1F2H1R2L2U1U1L5H1U1R8L7H1U1E1R11F5G1L5G1D2F1R2L2H1U2E1R5E1F2D3G2D2
  49. 270 A$=H$
  50. 280  DRAW "C3":       :RETURN
  51. 290  F1$="U1H1U3H4U2E2R1D1G1D1F1U2E2R1D1G1D2F1U3E3R1D2G1D2F1E3R2F2D1L3G1D2F1R1"
  52. 300 F2$="E1U2R2D3G3L1G2
  53. 310 A$=F1$+F2$
  54. 320  DRAW "C3":       :RETURN
  55. 330  S1$="U3H3U6E1R2D2G1L1H1F1R1E1U3E1R2D4G1L1H1F1R1E1U4E1R2D5G1L1H1F1R1E1"
  56. 340  S2$="U4E1R1F1D3G1L1H1F1R1E1U1F2L7F2R1L1H2R7D4G3D3"
  57. 350  A$=S1$+S2$
  58. 360  DRAW "C3":       :RETURN
  59. 370 N5$="U2H2U3 h3u2e1r1d1f3u1h2u4e1r1f1d2f2U9E1R1F1D7f1e1U8E1R1F1D11f2r2e1r3d1g4l2d1g2d2
  60. 380  A$=N5$
  61. 390 DRAW "C3":       :RETURN
  62. 4000 IF ZZ=0 THEN ZZ=300
  63. 4002 KK=6000/ZZ:X=130:Y=100
  64. 4005 R=15:FOR I=R TO -R STEP-5
  65. 4010 TU = SQR((R*R)-(I*I))
  66. 4020 X=X  +I:Y=Y  +TU:DRAW "C0M=X;,=Y;":DRAW "C3":DRAW A$:DRAW "C0M=X;,=Y;":DRAW A$
  67. 4030 NEXT
  68. 4040 FOR I=-R TO  R STEP 5
  69. 4050 TU = SQR((R*R)-(I*I))
  70. 4060 X=X  +I:Y=Y  -TU:DRAW "C0M=X;,=Y;":DRAW "C3":DRAW A$:DRAW "C0M=X;,=Y;":DRAW A$
  71. 4070 NEXT
  72. 4071 IF ZZ=300 THEN ZZ=0
  73. 4072 RETURN
  74. 6050 PLAY "L64O3CDEFGAB>C"
  75. 6070 RETURN
  76. 6080 FOR X=130 TO 115 STEP -5
  77. 6090 SOUND X,2:NEXT:RETURN
  78. 8000 DATA MONDAY,TUESDAY, WEDNESDAY, THURSDAY,FRIDAY,SATURDAY,SUNDAY
  79. 8500 FOR I=1 TO 7:READ LS$(I):NEXT
  80. 8550 FOR T=0 TO 9:FR$(T)="":NEXT:RETURN
  81. 9000 FOR DL=0 TO 1500+ZZ:NEXT:RETURN
  82.